home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / packer / dauudire / install < prev    next >
Text File  |  1996-07-18  |  5KB  |  150 lines
  1. ;-- Language specific string definitions --------------------------------------
  2.  
  3. ; ENGLISH -----------------------------
  4. (procedure english (
  5.    (set MSG_BAD_KICK "%s needs at least system software 2.04.")
  6.    (set MSG_INSTALL (cat "\nThis section lets you install the %s executable.\n\n"
  7.                          "If you choose to skip this part you'll be given the choice to"
  8.                          " install the documentation for %s."))
  9.    (set MSG_INSTALL_HELP "\n\n    hello ;-)")
  10.    (set MSG_DESTINATION (cat "Where would you like %s to be installed?\n"
  11.                         "(NO drawer will be created)"))
  12.    (set MSG_COPYING "Going to copy %s to %s.")
  13.    (set MSG_WHATDOC "Install the documentation in AmigaGuide\nformat for this language:")
  14.    (set MSG_WHATCAT "Install the locale-catalog\nfor this language:")
  15.    (set MSG_NONE "none")
  16.    (set MSG_WHEREDOC "Where shall I put the documentation?")
  17.    (set MSG_YES "Yes")
  18.    (set MSG_NO "No")
  19.    (set MSG_PROCEED "Proceed")
  20.    (set MSG_SKIP "Skip this part")
  21.    (set MSG_THANKS "\n\nThanks for installing %s.")
  22.    (set docfile 0)
  23. ))
  24.  
  25. ; DEUTSCH ----------------------------
  26. (procedure deutsch (
  27.    (set MSG_BAD_KICK "%s benötigt mindestens OS 2.04 des Betriebssystems.")
  28.    (set MSG_INSTALL (cat "\n\nDiese Sektion installiert %s.\n\n"
  29.                          "Wenn Sie diesen Teil überspringen, können"
  30.                          "Sie die Dokumentation zu %s installieren."))
  31.    (set MSG_INSTALL_HELP "\n\n    Guuuude ! ;-)")
  32.    (set MSG_DESTINATION (cat "Wohin soll %s installiert werden ?\n"
  33.                         "(Es wird KEINE Schublade angelegt !)"))
  34.    (set MSG_COPYING "Kopiere %s nach %s.")
  35.    (set MSG_WHATDOC "Zu welcher Sprace soll die Dokumentation im \nAmigaGuide-Format installiert werden ?:")
  36.    (set MSG_WHATCAT "Sprachkatalog für welche Sprache\ninstallieren ?:")
  37.    (set MSG_NONE "Keine")
  38.    (set MSG_WHEREDOC "Wohin soll die Dokumentation kopiert werden ?")
  39.    (set MSG_YES "Ja")
  40.    (set MSG_NO "Nein")
  41.    (set MSG_PROCEED "Los")
  42.    (set MSG_SKIP "Überspringen.")
  43.    (set MSG_THANKS "\n\%s wurde erfolgreich installiert,.")
  44.    (set docfile 1)
  45. ))
  46. ;------------------------------------------------------------------------------
  47.  
  48. (if (= @language "english")  (english))
  49. (if (= @language "deutsch") (deutsch))
  50.  
  51. (set vernum (getversion))
  52. (set osversion (/ vernum 65536))
  53. (if (>= osversion 39)
  54.    (set reader "MultiView") 
  55.    (set reader "AmigaGuide")
  56. )
  57.  
  58. (if (< osversion 37)
  59.    (abort (MSG_BAD_KICK @app-name))
  60. )
  61.  
  62. (set installed 0)
  63.  
  64. (if (askbool (prompt (MSG_INSTALL @app-name @app-name)) (help MSG_INSTALL_HELP) 
  65.              (choices MSG_PROCEED MSG_SKIP) (default 1))
  66.    (   
  67.       (set dest_dir
  68.          (askdir (prompt (MSG_DESTINATION @app-name @app-name))
  69.                  (help @askdir-help)
  70.                  (default @default-dest)
  71.                  (newpath)
  72.          )
  73.       )
  74.       (set @default-dest dest_dir)
  75.  
  76.       (copyfiles  (prompt (MSG_COPYING "dAUUdIRECTOR" @default-dest))
  77.                   (help @copyfiles-help)
  78.                   (source "Programm/")
  79.                   (all)
  80.                   (dest @default-dest)
  81.       )
  82.       (set installed 1)
  83.    )
  84. )
  85.  
  86. (set docfile
  87.     (askchoice  (prompt MSG_WHATDOC)
  88.                 (help @askchoice-help)
  89.                 (choices "english" "deutsch" MSG_NONE)
  90.                 (default docfile))
  91. )
  92. (set docdir
  93.     (if (AND (= @user-level 2) (<> docfile 2))
  94.         (askdir (prompt MSG_WHEREDOC)
  95.                 (help @askdir-help)
  96.                 (default @default-dest))
  97.         (@default-dest)
  98.     )
  99. )
  100.  
  101. (select docfile
  102.  
  103.     (copyfiles  (help @copyfiles-help)
  104.                 (source "Docs/English.guide")
  105.                 (dest docdir)
  106.                 (newname "dAUUdIRECTOR.guide")
  107.                 (infos)
  108.                 (optional "nofail")
  109.     )
  110.     (copyfiles  (help @copyfiles-help)
  111.                 (source "Docs/Deutsch.guide")
  112.                 (dest docdir)
  113.                 (newname "dAUUdIRECTOR.guide")
  114.                 (infos)
  115.                 (optional "nofail")
  116.     )
  117.     ("")  ; "none"
  118. )
  119.  
  120. (if (exists (tackon docdir "dAUUdIRECTOR.guide.info") (noreq))
  121.    (
  122.       (tooltype   (dest (tackon docdir "dAUUdIRECTOR.guide"))  (noposition) (setdefaulttool reader))
  123.       (set installed 1)
  124.    )
  125. )
  126.  
  127. (set catfile
  128.     (askchoice  (prompt MSG_WHATCAT)
  129.                 (help @askchoice-help)
  130.                 (choices "english" "deutsch" MSG_NONE)
  131.                 (default catfile))
  132. )
  133.  
  134. (select catfile
  135.  
  136.     ("")
  137.  
  138.     (copyfiles  (help @copyfiles-help)
  139.                 (source "catalogs/deutsch/dA->UU<-dIRECTOR.catalog")
  140.                 (dest "locale:catalogs/deutsch/")
  141.                 (optional "nofail")
  142.     )
  143.     ("")  ; "none"
  144. )
  145.  
  146. (if (= 1 installed)
  147.    (exit (MSG_THANKS @app-name))
  148.    (exit (quiet))
  149. )
  150.